home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / datamgr / opendb.frm < prev    next >
Text File  |  1995-10-23  |  4KB  |  144 lines

  1. VERSION 2.00
  2. Begin Form OpenDBForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Open Database"
  5.    ClientHeight    =   4620
  6.    ClientLeft      =   2175
  7.    ClientTop       =   2325
  8.    ClientWidth     =   5820
  9.    Height          =   5025
  10.    Left            =   2115
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4620
  13.    ScaleWidth      =   5820
  14.    Top             =   1980
  15.    Width           =   5940
  16.    Begin FileListBox File1 
  17.       BackColor       =   &H00FFFFFF&
  18.       ForeColor       =   &H00000000&
  19.       Height          =   3150
  20.       Left            =   3480
  21.       TabIndex        =   8
  22.       Top             =   660
  23.       Width           =   1995
  24.    End
  25.    Begin CommandButton Command2 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "&Cancel"
  28.       Height          =   375
  29.       Left            =   4140
  30.       TabIndex        =   5
  31.       Top             =   3900
  32.       Width           =   1335
  33.    End
  34.    Begin CommandButton Command1 
  35.       Caption         =   "&OK"
  36.       Default         =   -1  'True
  37.       Height          =   375
  38.       Left            =   2700
  39.       TabIndex        =   4
  40.       Top             =   3900
  41.       Width           =   1335
  42.    End
  43.    Begin DirListBox Dir1 
  44.       Height          =   2730
  45.       Left            =   1200
  46.       TabIndex        =   3
  47.       Top             =   1080
  48.       Width           =   2175
  49.    End
  50.    Begin DriveListBox Drive1 
  51.       Height          =   315
  52.       Left            =   1200
  53.       TabIndex        =   1
  54.       Top             =   660
  55.       Width           =   2175
  56.    End
  57.    Begin Label Label3 
  58.       BackColor       =   &H00C0C0C0&
  59.       BorderStyle     =   1  'Fixed Single
  60.       Caption         =   "Label3"
  61.       Height          =   255
  62.       Left            =   3480
  63.       TabIndex        =   9
  64.       Top             =   180
  65.       Width           =   1995
  66.    End
  67.    Begin Label ExitCondition 
  68.       Caption         =   "Label3"
  69.       Height          =   255
  70.       Left            =   120
  71.       TabIndex        =   7
  72.       Top             =   2220
  73.       Visible         =   0   'False
  74.       Width           =   315
  75.    End
  76.    Begin Label Label2 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "&Directories:"
  79.       Height          =   255
  80.       Index           =   1
  81.       Left            =   180
  82.       TabIndex        =   2
  83.       Top             =   1140
  84.       Width           =   1035
  85.    End
  86.    Begin Label Label2 
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Dri&ves:"
  89.       Height          =   255
  90.       Index           =   0
  91.       Left            =   180
  92.       TabIndex        =   0
  93.       Top             =   660
  94.       Width           =   855
  95.    End
  96.    Begin Label Label1 
  97.       BackStyle       =   0  'Transparent
  98.       Caption         =   "Pick Your Paradox Directory:"
  99.       Height          =   315
  100.       Left            =   180
  101.       TabIndex        =   6
  102.       Top             =   180
  103.       Width           =   2835
  104.    End
  105. End
  106. Sub Command1_Click ()
  107.     If dir1 <> "" Then
  108.         Me.ExitCondition = "OK"
  109.         Me.Hide
  110.     Else
  111.         MsgBox "Please select a directory", 64, "Open Database"
  112.     End If
  113.         
  114. End Sub
  115.  
  116. Sub Command2_Click ()
  117.     Me.ExitCondition = "Cancel"
  118.     Me.Hide
  119. End Sub
  120.  
  121. Sub Dir1_Change ()
  122.     file1 = dir1
  123.     label3 = dir1
  124. End Sub
  125.  
  126. Sub Drive1_Change ()
  127.     dir1 = drive1
  128. End Sub
  129.  
  130. Sub File1_Click ()
  131.     file1.ListIndex = -1
  132. End Sub
  133.  
  134. Sub File1_DblClick ()
  135.     file1.ListIndex = -1
  136. End Sub
  137.  
  138. Sub Form_Load ()
  139.     dir1 = drive1
  140.     file1 = dir1
  141.     label3 = dir1
  142. End Sub
  143.  
  144.